home *** CD-ROM | disk | FTP | other *** search
/ The Very Best of Atari Inside / The Very Best of Atari Inside 1.iso / sharew / elektro / lsim_21 / badlight.lsm next >
Encoding:
Text File  |  1989-04-23  |  1.9 KB  |  87 lines
  1. { for more information on this file see the comments in TLIGHTS.LSM }
  2.  
  3.  
  4.  
  5.  
  6. ! C = 0, TL = 0, TS = 0, ST, HL1, HL0, FL1, FL0, Clk = 0 ; 
  7.  
  8. ! :, ::, :::;
  9.  
  10. ! PalD0,  PalD1,  PalD2,  PalD3,  PalD4,
  11.   PalQ0,  PalQ1,  PalQ2,  PalQ3,  PalQ4,
  12.   Palq01, Palq11, Palq21, Palq31, Palq41 ;
  13.  
  14.  
  15.  
  16. ST      = /PalQ0 ;
  17.  
  18. PalD0   = /C./HL1./HL0./FL1.FL0
  19.         + /TL./HL1./HL0./FL1.FL0
  20.         + /TS.HL1./HL0./FL1.FL0
  21.         + C./TL./HL1.HL0./FL1./FL0
  22.         + /TS./HL1.HL0.FL1./FL0 ;
  23.  
  24.  
  25.  
  26. HL1     = /PalQ1 ;
  27.  
  28. PalD1   = /C./HL1./HL0./FL1.FL0
  29.         + /TL./HL1./HL0./FL1.FL0
  30.         + TS.HL1./HL0./FL1.FL0
  31.         + C./TL./HL1.HL0./FL1./FL0
  32.         + /C./HL1.HL0./FL1./FL0
  33.         + TL./HL1.HL0./FL1./FL0
  34.         + /TS./HL1.HL0.FL1./FL0
  35.         + TS./HL1.HL0.FL1./FL0 ;
  36.  
  37.  
  38.  
  39. HL0     = /PalQ2 ;
  40.  
  41. PalD2   = /C./HL1./HL0./FL1.FL0
  42.         + /TL./HL1./HL0./FL1.FL0
  43.         + C.TL./HL1./HL0./FL1.FL0
  44.         + /TS.HL1./HL0./FL1.FL0
  45.         + TS./HL1.HL0.FL1./FL0 ;
  46.  
  47.  
  48.  
  49. FL1     = /PalQ3 ;
  50.  
  51. PalD3   = /C./HL1./HL0./FL1.FL0
  52.         + /TL./HL1./HL0./FL1.FL0
  53.         + C.TL./HL1./HL0./FL1.FL0
  54.         + /TS.HL1./HL0./FL1.FL0
  55.         + TS.HL1./HL0./FL1.FL0
  56.         + C./TL./HL1.HL0./FL1./FL0
  57.         + TS./HL1.HL0.FL1./FL0 ;
  58.  
  59.  
  60.  
  61. FL0     = /PalQ4 ;
  62.  
  63. PalD4   = TS.HL1./HL0./FL1.FL0
  64.         + C./TL./HL1.HL0./FL1./FL0
  65.         + /C./HL1.HL0./FL1./FL0
  66.         + TL./HL1.HL0./FL1./FL0
  67.         + /TS./HL1.HL0.FL1./FL0 ;
  68.  
  69.  
  70.  
  71.  
  72. PalQ0  = (/Clk + Palq01 + PalD0).(Clk./Palq01.PalD0 + PalQ0);
  73. Palq01 = Clk.(Palq01 + /(PalQ0 $ PalD0));
  74.  
  75. PalQ1  = (/Clk + Palq11 + PalD1).(Clk./Palq11.PalD1 + PalQ1);
  76. Palq11 = Clk.(Palq11 + /(PalQ1 $ PalD1));
  77.  
  78. PalQ2  = (/Clk + Palq21 + PalD2).(Clk./Palq21.PalD2 + PalQ2);
  79. Palq21 = Clk.(Palq21 + /(PalQ2 $ PalD2));
  80.  
  81. PalQ3  = (/Clk + Palq31 + PalD3).(Clk./Palq31.PalD3 + PalQ3);
  82. Palq31 = Clk.(Palq31 + /(PalQ3 $ PalD3));
  83.  
  84. PalQ4  = (/Clk + Palq41 + PalD4).(Clk./Palq41.PalD4 + PalQ4);
  85. Palq41 = Clk.(Palq41 + /(PalQ4 $ PalD4));
  86.  
  87.